﻿Public Class AlertDialogue

  Public Function showmessage(ByVal nUnreadCt)
    If nUnreadCt.Equals(1) Then
      Label1.Text = ("You have " & nUnreadCt & " new message.")
    ElseIf nUnreadCt > 1 Then
      Label1.Text = ("You have " & nUnreadCt & " new messages.")
    End If

    Return 0
  End Function
  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Me.Hide()
  End Sub
End Class